unit TecnicoRecordFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, DBCtrls, StdCtrls, MainRecordFr;

type

  { TTecnicoRecordFrame }

  TTecnicoRecordFrame = class(TMainRecordFrame)
    BitBtn1: TBitBtn;
    DBEdit1: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label1: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure ControlaBotoes; override;
  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses
  TecnicoDM, Initializator, MainFr;

{ TTecnicoRecordFrame }

procedure TTecnicoRecordFrame.BitBtn1Click(Sender: TObject);
begin
  TheControl.ShowForeignFrame(TMainFrame(MunicipioSearchFrame));
end;

procedure TTecnicoRecordFrame.ControlaBotoes;
begin
  inherited ControlaBotoes;
  // O Cadastro de Técnicos não possui localizar
  LocalizarAction.Enabled := False;
  LocalizarAction.Visible := False;
end;

initialization
  {$I tecnicorecordfr.lrs}

end.
